100 POKE53280,0:POKE53281,0:POKE2,111
200 DIM P$(20),C(20):FOR N=1 TO 7:READ P$(N),C(N):NEXT N
500 PRINT "[147]":PRINT:PRINT "        ";"MICRONET MENU[146]"
502 FOR N=1 TO 7
503 POKE 646,C(N):PRINT:PRINT "    ";N;"[157].  ";P$(N)
505 NEXT N
560 PRINT:PRINT:PRINT "        ";"[156]ENTER OPTION[146]"
570 GET WA$:IF WA$=""THEN GOTO 570
571 WA=VAL(WA$):IF WA<0 OR WA>7 THEN 570
572 IF WA=7 THEN LOAD "MENU",8,1
600 PRINTCHR$(142)"[144]POKE157,0:L[207]";CHR$(34);P$(WA);CHR$(34);",8"
1000 PRINT"[129]         LOADING ";P$(WA);"......[144]"
1010 POKE631,19:POKE632,13
1100 POKE633,ASC("R"):POKE634,ASC("U"):POKE635,ASC("N"):POKE636,13:POKE198,6:END
2000 DATA CLOCK,3
2010 DATA MENU MAKER,4
2020 DATA SCROLLBASIC,5
2030 DATA FAST FORMATTER,6
2040 DATA COSMIC CAVERN,7
2050 DATA XEROPUS,8
2060 DATA MAIN MENU,9